home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / GLOBWI~1.BAS < prev    next >
BASIC Source File  |  1997-06-14  |  1KB  |  39 lines
  1. Attribute VB_Name = "MGlobWizMain"
  2. Option Explicit
  3.  
  4. Sub Main()
  5.     If Command$ = sEmpty Then
  6.         Dim frm As New FGlobalWizard
  7.         frm.Show
  8.     Else
  9.         Dim sType As String, sFileSrc As String
  10.         sType = GetToken(Command$, " ")
  11.         sFileSrc = GetToken(sEmpty, " ")
  12.         ' Select the appropriate filter and assign to any old object
  13.         Dim filterobj As Object
  14.         Select Case sType
  15.         Case "/pubpriv"
  16.             ' Translates public class to private class
  17.             Set filterobj = New CPubPrivFilter
  18.         Case "/globmod"
  19.             ' Translates global class to standard module
  20.             Set filterobj = New CGlobModFilter
  21.         End Select
  22.         
  23.         Dim filter As IFilter
  24.         Set filter = filterobj
  25.         filter.Source = GetFileText(sFileSrc)
  26.         FilterText filter
  27.         
  28.         Dim sFileDst As String
  29.         Select Case sType
  30.         Case "/pubpriv"
  31.             sFileDst = "P_" & Right$(filterobj.Name, Len(filterobj.Name) - 1) & ".cls"
  32.         Case "/globmod"
  33.             sFileDst = Right$(filterobj.Name, Len(filterobj.Name) - 1) & ".bas"
  34.         End Select
  35.         
  36.         SaveFileStr sFileDst, filter.Target
  37.     End If
  38. End Sub
  39.